(eventp): Duplicate definition deleted.

diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el
index af96a07a2a741fab0cc654c15f45bd0dcfb2483a..56dfcaf0e164f686a937cee110f6ccb9cbb05bd8 100644 (file)
--- a/lisp/emacs-lisp/levents.el
+++ b/lisp/emacs-lisp/levents.el
@@ -56,15 +56,6 @@
 (put 'menu 'event-symbol-elements '(eval))
 (put 'timeout 'event-symbol-elements '(eval))
 
-(defsubst eventp (obj)
-  "True if the argument is an event object."
-  (or (integerp obj)
-      (and (symbolp obj)
-          (get obj 'event-symbol-elements))
-      (and (consp obj)
-          (symbolp (car obj))
-          (get (car obj) 'event-symbol-elements))))
-
 (defun allocate-event ()
   "Returns an empty event structure.
 In this emulation, it returns nil."